0 POKE53280,11:POKE53281,11
1 PRINT"[147]        64 HEXMON BY C. PHILLIPS
5 [153]"  TYPE H & ADDRESS TO CONVERT TO          DECIMAL.
6 PRINT"  TYPE THE ADDRESS TO VIEW CONTENTS       IN HEX.
7 [153]"  TYPE D & ADDRESS TO VIEW IN             DECIMAL.
8 PRINT"  HIT <RETURN> FOR NEXT BLOCK."
9 DATE$="TODAY"
10 Y=16:Z=32
20 DEFFNMD(X)=INT(X-INT(INT(X/Y)*Y))
30 H$="0123456789ABCDEF":GOTO220
40 INPUT"ADDRESS";A$
50 IFA$="END"ORA$="BYE"ORA$="E"THENPRINT:PRINT,"OFF AT ";TI$:END
52 IF LEFT$(A$,1)="D"THEN110
54 IF LEFT$(A$,1)="C"THEN160
56 IF LEFT$(A$,1)="H"THEN180
58 IF A$="SYS"THEN20
60 A=VAL(A$):FORI=ATOA+ZSTEP8:D=I
70 HX$="":GOSUB250:PRINTHX$;TAB(7)
80 FORJ=ITOI+7
90 PRINTMID$(H$,FNMD(PEEK(J)/16)+1,1);MID$(H$,FNMD(PEEK(J))+1,1);" ";
100 NEXTJ:PRINT:NEXTI:A$=STR$(I):GOTO40
110 A=VAL(RIGHT$(A$,LEN(A$)-1))
120 FORI=ATOA+ZSTEP8
130 PRINTI;:L=1:FORJ=ITOI+7STEP2
135 PRINTTAB(L*8);:L=L+1
140 PRINTPEEK(J)+PEEK(J+1)*256;:NEXTJ
150 PRINT:NEXTI:A=I:A$="D"+STR$(A):GOTO40
160 A=VAL(RIGHT$(A$,LEN(A$)-1))
170 FORI=ATOA+199:PRINTCHR$(PEEK(I));:NEXT:A$="C"+STR$(I):GOTO40
180 J=LEN(A$):D=0:FORI=2TOJ:K=1
190 IFMID$(H$,K,1)<>MID$(A$,I,1)THENK=K+1:GOTO190
200 D=D+(K-1)*16^(J-I):NEXTI
210 PRINTCHR$(17)TAB(20);"=";D:A$=STR$(D):GOTO40
220 PRINTTAB(8);
225 PRINTDATE$;SPC(3);LEFT$(TI$,2);":";MID$(TI$,3,2);":";RIGHT$(TI$,2)
230 PRINT:PRINT:GOTO40
250 REM **** LONG  HEX FROM DECIMAL ****
260 REM L=LOG(D)/LOG(16):REM LOG(D) BASE    16
265 REM FOR M=INT(L) TO 0 STEP-1
270 FORM=3TO0STEP-1
280 HX$=HX$+MID$(H$,FNMD(D/16^M)+1,1)
290 NEXTM:Y=16:RETURN